home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).zip / Softdisk Magazette Volume 1, No. 11 (1982-07)(Softdisk)(Side B).do / EXPLANATION.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  25 lines
  1. 5  REM   *******************
  2. 10  REM  CONTRIBUTED PROGRAM           EXPLANATION
  3. 15  REM  *******************
  4. 20  REM   BY STEVE PISK
  5. 25  REM  *******************
  6. 30  TEXT : HOME : PRINT "HI! MY NAME IS STEVE PISK, AND THIS IS "
  7. 40  PRINT "MY FIRST CONTRIBUTED PROGRAM TO YOUR"
  8. 50  PRINT "MAGAZINE. IT'S A HELLO PROGRAM WHICH IS"
  9. 60  PRINT "MERELY AN EXERCISE IN FUN. IT'S NOT"
  10. 70  PRINT "TERRIBLY SOPHISTICATED, OR INGENIOUS"
  11. 80  PRINT "OR ANYTHING AS DEEP AS THAT! I HOPE YOU"
  12. 90  PRINT "WILL FIND IT, HOWEVER, SOMEWHAT AMUSING!
  13. 100  PRINT : PRINT "IT INCLUDES A SUBROUTINE <FREECAT>"
  14. 110  PRINT "PUBLISHED IN NIBBLE MAGAZINE V.2 #5"
  15. 120  PRINT "AND THIS IS NOTED IN IT'S LISTING.
  16. 125  PRINT "<FREECAT> DISPLAYS # OF FREE SECTORS"
  17. 126  PRINT "REMAINING ON DISK WHEN YOU 'CATALOG'.
  18. 127  PRINT "ONCE PATCHED, IT STAYS IN DOS UNTIL"
  19. 128  PRINT "YOU REBOOT."
  20. 129  PRINT "<FREECAT> WRITTEN BY CRAIG PETERSON.
  21. 130  PRINT "FOR MORE INFO, SEE 'NIBBLE' V.2, #5.
  22. 135  PRINT : PRINT "TO RUN 'EPICUREAN HELLO 1.1'"
  23. 140  PRINT "PRESS < RETURN > ": GET A$: IF A$ < > CHR$(13)  THEN 140
  24. 150 D$ =  CHR$(13) + CHR$(4)
  25. 160  HOME : PRINT D$;"RUN EPICUREAN HELLO 1.1"